object frVarForm: TfrVarForm Left = 220 Top = 107 BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp] BorderStyle = bsDialog Caption = 'Variables' ClientHeight = 197 ClientWidth = 393 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate OnDeactivate = FormDeactivate PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 20 Top = 172 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object Image2: TImage Left = 52 Top = 172 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object VarLB: TListBox Left = 168 Top = 8 Width = 221 Height = 149 HelpContext = 22 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 0 OnDblClick = VarLBDblClick OnDrawItem = CategoryLBDrawItem end object CategoryLB: TListBox Left = 4 Top = 8 Width = 153 Height = 149 HelpContext = 32 ItemHeight = 16 Style = lbOwnerDrawFixed TabOrder = 1 OnClick = CategoryLBClick OnDrawItem = CategoryLBDrawItem end object Button1: TButton Left = 234 Top = 168 Width = 75 Height = 25 HelpContext = 40 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 2 end object Button2: TButton Left = 314 Top = 168 Width = 75 Height = 25 HelpContext = 50 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end end